home *** CD-ROM | disk | FTP | other *** search
/ ADA Programming Guide / ADA Programming Guide.iso / ada_gwu / adaed / gwudemos / chop.adb next >
Encoding:
Text File  |  1996-01-30  |  274 b   |  21 lines
  1. --::::::::::
  2. --chop.adb
  3. --::::::::::
  4. PACKAGE BODY Chop IS
  5.  
  6.   TASK BODY Stick IS
  7.  
  8.   BEGIN
  9.     
  10.     LOOP
  11.       SELECT
  12.         ACCEPT Pick_Up;
  13.         ACCEPT Put_Down;
  14.       OR
  15.         TERMINATE;
  16.       END SELECT;
  17.     END LOOP;
  18.  
  19.   END Stick;
  20.  
  21. END Chop;